home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / ahtcl430.lha / Tools / Setfree.REXX < prev    next >
OS/2 REXX Batch file  |  1996-01-18  |  1KB  |  48 lines
  1. /*************************************************/
  2. /*                                               */
  3. /* Hier das REXX-Script des SETFREE Befehl...... */
  4. /*                                               */
  5. /* Dieser Befehl ist extra in REXX damit ihn sich*/
  6. /*    jeder selber ggf. anpassen kann            */
  7. /*                                               */
  8. /*************************************************/
  9.  
  10. if ~show('L','cl_rexx.library') then do
  11.     if ~addlib('cl_rexx.library',0,-30,0) then do
  12.         address command 'ASSIGN LIBS: CONNECTLINE:Libs ADD'
  13.         if ~addlib('connectline:libs/cl_rexx.library',0,-30,0) then exit 10
  14.         end
  15.     end
  16.  
  17.  
  18. anzahl=CLGET_UserNumberOf()
  19. do x=1 to anzahl
  20.     user.x  = CLGET_Username(x)
  21.     uploads = clget_useruploads(user.x)
  22.     down    = clget_userdownloads(user.x)
  23.  
  24. free = uploads * 3                                /*   Rate ( 3 fuer 1:3 )   */
  25.  
  26. free = free - down
  27.  
  28. if free < 512 then free = 512                     /* mindest Free der eingetragen wird ( in KB ) */
  29. say ' '
  30. say ' '
  31. say '-------------------------------------------'
  32. say 'Username........ : 'user.x
  33. say ' '
  34. say 'Uploads......... : 'left(uploads,9)||' ByTES'
  35. say 'Downloads....... : 'left(down,9)||' ByTES'
  36. say 'Neuer Freiraum.. : 'left(free,9)||' ByTES'
  37. dummy   = clset_userfreekbyte(user.x,free )
  38. say ' '
  39. end
  40. call ende
  41.  
  42.  
  43. Ende:
  44. say ' '
  45. say ' '
  46. say '-------------------------------------------'
  47. EXIT(0)
  48.